home *** CD-ROM | disk | FTP | other *** search
/ Geek Games #12 / GEGA012.iso / Jogos de Azar / flash_poker.swf / scripts / frame_21 / DoAction.as
Text File  |  2006-01-17  |  455b  |  40 lines
  1. k = "0";
  2. i = "1";
  3. while(i < "6")
  4. {
  5.    j = "1";
  6.    while(j < "6")
  7.    {
  8.       if(eval("CValue" add i) == eval("CValue" add j))
  9.       {
  10.          k += "1";
  11.       }
  12.       j += "1";
  13.    }
  14.    i += "1";
  15. }
  16. if(k == "25")
  17. {
  18.    isKind = "8";
  19. }
  20. else if(k == "17")
  21. {
  22.    isKind = "6";
  23. }
  24. else if(k == "13")
  25. {
  26.    isKind = "5";
  27. }
  28. else if(k == "11")
  29. {
  30.    isKind = "2";
  31. }
  32. else if(k == "9")
  33. {
  34.    isKind = "1";
  35. }
  36. else
  37. {
  38.    isKind = "0";
  39. }
  40.